home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 August / 1986-08.d64 / line extender_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  721b  |  13 lines
  1. 10 poke55,0:poke56,peek(56)-1:clr:ad=peek(56)*256:print"[147][155]working...":c=0
  2. 20 fori=adtoad+129:readb:c=c+b:pokei,b:next:ifc<>13921thenprint"data err":stop
  3. 30 pokead+4,peek(772):pokead+5,peek(773)
  4. 40 poke773,ad/256:poke772,ad-256*peek(773)
  5. 50 print"[147] "chr$(34)"basic line extender"chr$(34)" is operational.":new
  6. 60 data138,240,3,76,124,165,32,124,165,173,0,2,201,58,240,9,201,92
  7. 70 data240,5,201,34,240,1,96,132,11,32,19,166,104,104,176,3,76,237,164
  8. 80 data162,2,134,39,202,173,0,2,201,58,208,3,230,11,202,134,38,160,1,177
  9. 90 data95,170,136,177,95,208,1,202,134,96,170,202,229,95,24,101,11,144
  10. 100 data5,162,23,108,0,3,134,95,165,45,133,90,165,11,233,6,133,11,101,90
  11. 110 data133,88,164,46,132,91,144,1,200,132,89,32,184,163,165,49,164,50
  12. 120 data133,45,132,46,164,11,177,38,145,95,136,16,249,76,42,165,0
  13.